home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / grafix / misc / ami2d_2_0.lha / ami2d_dist / Install_Ami2D < prev    next >
Encoding:
Text File  |  1994-09-27  |  3.0 KB  |  118 lines
  1. ;$VER: Ami2D Installer © 1994
  2.  
  3. (set cpu (database "cpu"))
  4. (set @default-dest "RAM:")
  5.  
  6. (set #adir 
  7.     (askdir 
  8.         (prompt "Where do you wish to install Ami2D?\n(A drawer will be created called \"Ami2D\" at this location)")
  9.         (help @askdir-help)
  10.         (default "Work:")
  11.     )
  12. )
  13.  
  14. (set @default-dest (tackon #adir "Ami2D"))
  15. (makedir @default-dest (infos) (safe))
  16. (if (= (exists (tackon #adir "Ami2D.info")) 0)
  17.     (copyfiles (source "Ami2D.info") (dest #adir))
  18. )
  19. (makeassign 'Ami2D' @default-dest (safe))
  20. (complete 10)
  21.  
  22. (foreach "Ami2D/rexx" "#?.rexx" 
  23.     (protect (tackon "Ami2D/rexx" @each-name) "+s")
  24. )
  25. (foreach "Ami2D/test" "#?.rexx" 
  26.     (protect (tackon "Ami2D/test" @each-name) "+s")
  27. )
  28. (foreach "Files/wshell" "#?.rexx" 
  29.     (protect (tackon "Files/wshell" @each-name) "+s")
  30. )
  31. (foreach "Files/nowshell" "#?.rexx" 
  32.     (protect (tackon "Files/nowshell" @each-name) "+s")
  33. )
  34. (complete 20)
  35.  
  36. (copyfiles (source "README") (infos) (dest "Ami2D:"))
  37. (copyfiles (source "ABSTRACT") (infos) (dest "Ami2D:"))
  38. (copyfiles (source "COPYRIGHT") (infos) (dest "Ami2D:"))
  39. (copyfiles (source "DISCLAIMER") (infos) (dest "Ami2D:"))
  40. (complete 30)
  41.  
  42. (copyfiles 
  43.     (prompt "Installing Ami2D...")
  44.     (source "Ami2D")
  45.     (all)
  46.     (infos)
  47.     (dest "Ami2D:")
  48.     (optional)
  49. )
  50. (complete 50)
  51.  
  52. (copylib
  53.     (help @copylib-help)
  54.     (prompt "Copying rexxarplib.library...")
  55.     (confirm)
  56.     (source "Files/libs/rexxarplib.library")
  57.     (dest "LIBS:")
  58. )
  59. (complete 60)
  60.  
  61. (copylib
  62.     (help @copylib-help)
  63.     (prompt "Copying rexxmathlib.library...")
  64.     (confirm)
  65.     (source "Files/libs/rexxmathlib.library")
  66.     (dest "LIBS:")
  67. )
  68. (complete 70)
  69.  
  70. (if (askbool 
  71.         (help @askbool-help) 
  72.         (prompt "Which set of icons do you prefer?")
  73.         (default 0)
  74.         (choices "UGLY" "MAGICWB")
  75.     )
  76.     (
  77.         (copyfiles (source "Files/noMagic.info") (dest #adir) (newname "Ami2D.info"))
  78.         (copyfiles (source "Files/noMagic") (pattern "#?.info") (dest "Ami2D:"))
  79.         (copyfiles (source "Files/noMagic/doc") (pattern "#?.info") (dest "Ami2D:doc"))
  80.         (copyfiles (source "Files/noMagic/tutorials") (pattern "#?.info") (dest "Ami2D:tutorials"))
  81.     )
  82. )
  83. (complete 80)
  84.  
  85. (set #bdir "Files/noWShell")
  86. (if (exists "libs:wshell.library")
  87.     (if (askbool (help @askbool-help) (prompt "Do you wish to use WShell specific features (highly recommended)?"))
  88.         (set #bdir "Files/WShell")
  89.     )
  90. )
  91.  
  92. (copyfiles 
  93.     (prompt "Installing ami2d.rexx...")
  94.     (source #bdir)
  95.     (all)
  96.     (dest "Ami2D:rexx")
  97.     (optional)
  98. )
  99. (complete 90)
  100.  
  101. (if (exists "sys:Names")
  102.     (textfile
  103.         (prompt "Creating assignment in sys:Names...")
  104.         (help "Since it appears you are using Dave Haynie's 'BindNames' the assignment will be made in 'sys:Names' in a file called 'Ami2D'")
  105.         (dest "sys:Names/Ami2D")
  106.         (append "Ami2D: " @default-dest)
  107.         (confirm)
  108.     )
  109.     (startup "Ami2D"
  110.         (prompt "Inserting assignment into s:user-startup...")
  111.         (help @startup-help)
  112.         (command "assign Ami2D: " @default-dest)
  113.     )
  114. )
  115. (complete 100)
  116.  
  117. (exit)
  118.